﻿Imports Microsoft.VisualBasic
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports CustomTshirtFinal




<TestClass()> _
Public Class ProductoNegocioTest

    <TestMethod()> _
    Public Sub insertarTest()
        Dim negocio As New ProductoNegocio()

        Try
            Dim modelo = negocio.insertar("bibiri troll", "Polo para troll", 10, 30, 1)

            Console.Write(modelo.idProducto)

            'Assert.AreEqual(3, modelo.idProducto)

        Catch ex As DAOExcepcion
            Assert.Fail(ex.ToString())
        End Try

    End Sub
    <TestMethod()> _
    Public Sub eliminarTest()
        Dim modelo As ProductoNegocio = New ProductoNegocio()
        Dim idProducto As Integer = 1
        Try
            modelo.eliminar(idProducto)
        Catch ex As DAOExcepcion

            Assert.Fail(ex.ToString())
        End Try
    End Sub

   
    <TestMethod()> _
    Public Sub buscarPorNombreTest()
        Dim negocio = New ProductoNegocio

        Try

            Dim modelo = negocio.buscarPorNombre("polo troll")
            MsgBox(modelo.Count)


        Catch ex As Exception
            Assert.Fail(ex.ToString())

        End Try

    End Sub

End Class


